home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2009 February / PCWFEB09.iso / Software / Linux / Kubuntu 8.10 / kubuntu-8.10-desktop-i386.iso / casper / filesystem.squashfs / usr / share / perl5 / Debconf / Log.pm < prev    next >
Text File  |  2008-10-10  |  914b  |  45 lines
  1. #!/usr/bin/perl
  2. # This file was preprocessed, do not edit!
  3.  
  4.  
  5. package Debconf::Log;
  6. use strict;
  7. use base qw(Exporter);
  8. our @EXPORT_OK=qw(debug warn);
  9. our %EXPORT_TAGS = (all => [@EXPORT_OK]); # Import :all to get everything.
  10. require Debconf::Config; # not use; there are recursive use loops
  11.  
  12.  
  13. my $log_open=0;
  14. sub debug {
  15.     my $type=shift;
  16.     
  17.     my $debug=Debconf::Config->debug;
  18.     if ($debug && $type =~ /$debug/) {
  19.         print STDERR "debconf ($type): ".join(" ", @_)."\n";
  20.     }
  21.     
  22.     my $log=Debconf::Config->log;
  23.     if ($log && $type =~ /$log/) {
  24.         require Sys::Syslog;
  25.         unless ($log_open) {
  26.             Sys::Syslog::setlogsock('unix');
  27.             Sys::Syslog::openlog('debconf', '', 'user');
  28.             $log_open=1;
  29.         }
  30.         eval { # ignore all exceptions this throws
  31.             Sys::Syslog::syslog('debug', "($type): ".
  32.                 join(" ", @_));
  33.         };
  34.     }
  35. }
  36.  
  37.  
  38. sub warn {
  39.     print STDERR "debconf: ".join(" ", @_)."\n"
  40.         unless Debconf::Config->nowarnings eq 'yes';
  41. }
  42.  
  43.  
  44. 1
  45.